home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / String Mak244058102001.psc / String Maker / frmOutput.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-07-08  |  1.3 KB  |  46 lines
  1. VERSION 5.00
  2. Begin VB.Form frmOutput 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Output String"
  5.    ClientHeight    =   4800
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   7470
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MDIChild        =   -1  'True
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   4800
  14.    ScaleWidth      =   7470
  15.    Begin VB.CommandButton Command1 
  16.       Caption         =   "Copy"
  17.       Height          =   255
  18.       Left            =   5040
  19.       TabIndex        =   1
  20.       Top             =   4440
  21.       Width           =   1215
  22.    End
  23.    Begin VB.TextBox txtOutput 
  24.       Height          =   4095
  25.       Left            =   240
  26.       MultiLine       =   -1  'True
  27.       ScrollBars      =   3  'Both
  28.       TabIndex        =   0
  29.       Top             =   240
  30.       Width           =   6975
  31.    End
  32. Attribute VB_Name = "frmOutput"
  33. Attribute VB_GlobalNameSpace = False
  34. Attribute VB_Creatable = False
  35. Attribute VB_PredeclaredId = True
  36. Attribute VB_Exposed = False
  37. Private Sub Command1_Click()
  38. Clipboard.Clear
  39. Clipboard.SetText txtOutput.Text
  40. End Sub
  41. Private Sub Form_Load()
  42. End Sub
  43. Private Sub txtOutput_GotFocus()
  44. Command1.SetFocus
  45. End Sub
  46.